home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / dvorak (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  2KB  |  60 lines
  1. 5 :
  2. 6 :
  3. 10 REM *** MAIN PROGRAM ***
  4. 20 :
  5. 30 GOSUB 4000:REM *** LOAD AND RUN SWAP ROUTINE ***
  6. 40 DIM D(194):GOSUB 5400:REM *** LOAD DVORAK DATA ***
  7. 50 GOSUB 5050:END:REM *** LOAD DATA INTO KEY TABLE, END ***
  8. 3994 :
  9. 3995 :
  10. 3996 REM *** LOAD AND RUN SWAP ROUTINE ***
  11. 3997 :
  12. 4000 T=0:FOR I=0 TO 62:READ J:T=T+J:POKE 49152+I,J:NEXT
  13. 4010 IF T=10067 GOTO 4050:REM *** TOTAL FOR ML ROUTINE ***
  14. 4020 PRINT "      DATA ERROR IN SWAP SUBROUTINE"
  15. 4040 END
  16. 4050 SYS 49152:RETURN:REM *** SWAP OUT BASIC AND KERNAL ***
  17. 4095 :
  18. 4096 :
  19. 4097 REM *** DATA FOR ML ROUTINE THAT COPIES BASIC AND KERNAL INTO RAM ***
  20. 4098 REM *** CODE USES NO ABSOLUTE ADDRESSES SO MAY BE LOCATED ANYWHERE ***
  21. 4099 :
  22. 4100 DATA 169,0,133,251,169,160,133,252,162,32,160,0,177,251,145,251,136
  23. 4110 DATA 240,2,208,247,202,240,4,230,252,208,238,169,0,133,251,169,224,133,252
  24. 4120 DATA 162,32,169,0,177,251,145,251,136,240,2,208,247,202,240,4,230,252,208
  25. 4130 DATA 238,165,1,41,253,133,1,96
  26. 4994 :
  27. 4995 :
  28. 4996 REM *** ROUTINES TO READ AND LOAD DVORAK KEY DATA ***
  29. 4997 :
  30. 4998 REM *** SUBROUTINE FOR POKING DVORAK DATA INTO KEY TABLE ***
  31. 4999 :
  32. 5050 FOR I=0 TO 194
  33. 5070 POKE I+60289,D(I)
  34. 5090 NEXT
  35. 5100 RETURN
  36. 5396 :
  37. 5397 :
  38. 5398 REM *** READ AND CHECK DVORAK DATA ***
  39. 5399 :
  40. 5400 T=0:FOR I=0 TO 194:READ D(I):T=T+D(I):NEXT
  41. 5405 IF T=22987 THEN 5410
  42. 5407 PRINT "      DATA ERROR IN DVORAK KEYSET"
  43. 5408 END
  44. 5410 RETURN
  45. 5496 :
  46. 5497 :
  47. 5498 REM *** DVORAK DATA ARRANGED BY KEYNUMBER ***
  48. 5499 :
  49. 5500 DATA 20,13,29,136,133,134,135,17,51,44,65,52,59,79,46,1,53,80,69,54,74,85
  50. 5510 DATA 89,81,55,70,73,56,88,68,71,75,57,67,72,48,77,84,82,66,43,76,78,45
  51. 5520 DATA 86,83,64,87,92,42,58,19,1,61,94,90,49,95,4,50,32,2,47,3,255
  52. 5530 DATA 148,141,157,140,137,138,139,145,35,60,193,36,93,207,62,1,37,208,197
  53. 5540 DATA 38,202,213,217,209,39,198,201,40,216,196,199,203,41,195,200,48
  54. 5550 DATA 205,212,210,194,219,204,206,221,214,211,186,215,169,192,91,147,1
  55. 5560 DATA 61,222,218,33,95,4,34,160,2,63,131,255
  56. 5570 DATA 148,141,157,140,137,138,139,145,150,60,176,151,93,185,62,1,152
  57. 5580 DATA 175,177,153,181,184,183,171,154,187,162,155,189,172,165,161,41
  58. 5590 DATA 188,180,48,167,163,178,191,166,182,170,220,190,174,164,179,168,223,91
  59. 5600 DATA 147,1,61,222,173,129,95,4,149,160,2,63,131,255
  60.